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ZTITLE "LIBSFID_TO we = Convert worse and file ID to file, S gore tes tion’ 
MODULE LIBSFID_TO NAM ( sor nvert device an * at. sit le spec 
BEGIN IDENT ="'V04-000' ) = File: LIBFIDNAM.B32 edit. Vv 
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'® 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
is ALL RIGHTS RESERVED. 

iw THIS SOFTWARE IS FURNISHED UNDER A LICENSE AN 
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ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS $ 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE 
iw OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE 
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'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
= oORPORaT bn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


iw DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: General Utility Library 


ABSTRACT: 


This routine converts a device and file identification to a file 
specification. 


ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: Martin L. Jack, CREATION DATE: 23-Dec-1981 
MODIFIED BY: 
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i y03-004 SOP0004 Sop 19 September 1983 
i Add test for NULL_D RECiORY to "handle directory strings returned 
by the ACP for ODS-1 formatted d 

i y03-003 SOP0003 Sopke 29 August 1983 

i Invoke SYSSFILESCAN “a shies AN macro in STARLET. This fixes 
i problem of ‘insufficient arguments’ caused if optional arguments 
are not supplied. 

i 
i 
i 
i 
i 
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v03-002 S$OP0002 J. R. Sopka 10 August 1983 
Re-work to reduce stack usage to. be callable in Kernel mode. 
Return partial spec if any available. 


v03-001 0P0001 J. R. Sopka 72 1983 
naiane rework to access new CP attribute which” Solves an 
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entire file spec in a single call. 


fabled two paths or which hs’ routing. gone return without releasing 
nnel and event Lag. 2 
faa” ACP_STATUS par ane er to return error that occurred in a file 


RES tS mar Print whenever a lookup error occurs on a directory. 


et moana? than (2) i zero backlink at top level. Add 
OrRe C16 RY_ID parameter. e devi ce name if logical volume name not 
pve i203 ble. ck ACP heat "aunte 2] for serutture Level 1. 
attelnet from LIBACP.B832. MLJ 23-Dec-1981 
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-Sep- VMSLIB.SRCIJLIBFIDN 


1 XSBTTL ‘Declarations’ 
! TABLE OF CONTENTS: 


FORWARD ROUTINE 
LIBSFID_TO_NAME; ! Convert device and file ID to file specification 


! INCLUDE FILES: 


LIBRARY 'SYSSLIBRARY:LIB'; ! System symbols 
1 


SWITCHES: 


SWITCHES 
ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


} LINKAGES: 


LINKAGE 
LINKAGE _JSB_3_6 


JSB(REGISTER=0,REGISTER=1,REGISTER=2): 
NOPRESERVE(3,4,5,6), 


LINKAGE_JSB_2_2 = JSB(REGISTER=0;REGISTER=1,REGISTER=2); 
MACROS: 


MACRO MASTER_FILE_DIRECTORY  ( DIRECTORY_STRING_LENGTH 
DIRECTORY-STRING-ADDRESS ) 


(yp DIRECTORY STRING LENGTH EQL XCHARCOUNT( *£0000003" 


CHSEQL( DIRECTORY STRING LENGTH DIRECTORY_STRING_ADD 
XCHARCOUNT( 'CO00000]' 5, CHSPTR( OPLIT( *LOO 


) 
RESS 
00004" » ) ) 
)%; 


MACRO NULL_DIRECTORY ( DIRECTORY_STRING_LENGTH 
DIRECTORY-STRING_ADDRESS ) 


( DIRECTORY_STRING_LENGTH EQL %CHARCOUNT( ‘CJ" ) 


CHSEQL( DIRECTORY_STRING_LENGTH, DIRECTORY_STRING_ADDRESS, 
MCHARCOUNT( 'CJ'™), CHSPTR( UPLIT(7'*C]' )7) ) 


)%; 


EQUATED SYMBOLS: 


LITERAL 
! size of the local buffer for conatruct ing the string to return. 
! this will be truncated to the maximum RMS file specifier length for return. 
! 16 is the maximum senas? of a logical volume name. 
BUF _SIZE = NAMSC_MAXRSS + 16; 
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FIELDS: 
NONE 


PSECTS: 


OWN STORAGE : 
NONE 


TE, SHARE, PIC, ADDRES 
ADDRES 

ADDR 
E, PIC, AD 


AX-11 Blis 
VMSLIB.SRC 


NG MODE (LONG RELA 
SING_MODE (LONG_RE 
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UAOSE 1R..1O_NARE LIBSFID_ TO_NAME = Convert device and file ID to 1o~se0- 135% 96:96:30 AX-11 BLi Lege -32 V4.0- ras Page 5 
v04-060 External References 14-Sep-1984 15:54: VMSLIB™ SRCILIBFIDNAM.B52;1 (3) 
: 146 144 1 XSBTITL ‘External References' 
; (147 145 1! 
: 148 128 1 ! EXTERNAL REFERENCES: 
; 149 147 1! 
; 139 138 1 enTen, BOUT IME 
3 ¥3) 0149 1 ' Allocate an event flag 
: 136 1 9 1 LIBSF PREE™ EF, ' Deallocate an event flag 
: 1? 1 1 tIBSANAL TIE” -SDESC_R2: LINKAGE _JSB_3.2. ! Analyze descriptor 
3 122 } ¢ } LIBSSCOPY_R_DX6: LINKAGE-JSB_ 3-6; ! String copy 
; «6156 0154 1 EXTERNAL hry ! Completion 4 ery codes 
oor 812? 1 LIB$_INV ance ! Invalid argument 
s 133 156 1 LIBS-STRT : pering trunca 
; 159 0157 1 LIBS~ INVFALSPE; ! Invalid file seoritiast ten 
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TO_NAME = Convert device and file ID to 1b-5e -1984 02:26: AX-11 Bliss-32 V4.0-74 
TO_LNAME = Convert device and file ID to 1 30071382 96:90:39 VMSLIB.SRCILIGF IDNAM.B 2;1 
RSBTTL ‘LIBSFID TO_NAME = Convert device and file ID to file specification’ 
GLOBAL ROUTINE LIBSFID_TO_NAME ( ! Convert device and tite ID to file specification 

DEVICE_NAME, ’ poy tee name string descriptor 

FILE_IB: REF BLOCKC,BYTE], ! File dent if cation 

FILE_SPEC, ' File specification string descriptor 

FILE SPEC_LENGTH, ! True length of FILE_SPEC returned 

DIRECTORY” ID: REF BLOCKC,BYTE], ! Directory identification 

ACP STATUS ! ACP status return returned 

= 


14 
! FUNCTIONAL DESCRIPTION: 


This routine converts a disk device name and file identification to a 
file specification by requesting the ACP file spec attribute. 

This routine will not operate well on Structure Level 1 disks, unless 
the DIRECTORY_ID parameter is used. 


CALLING SEQUENCE: 
ret_status.wlc.v = LIBSFID_TO_NAME ( 


ice-name.rt.dx, 
e~id.rwu.r, 


INPUT PARAMETERS: 


i 

i] 

i 
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i 
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i 

i 

! 

! 

' 

i 

i 

i 

i 

i 

i 

' 

! DEVICE_NAME Address of a descriptor for a device name. 
! rypacen ly this string is obtained from the 
: NAM$T_DVI field of a VAX-11 RMS name block. 
! The device name must reference a disk device. 
: The string must contain no more than 64 
characters. 

: FILE_ID Address of an array of three words that 

! spect ries a file identification. Typically 
! this array is obtained from the NAMSW FID field 
! of a VAX-11 RMS name block. The SFIDDEF macro 
: defines the structure of this parameter. 

' 

' 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 


DIRECTORY_ID Address of an array of three words that 


W_DID field of a VAX-11 RMS name block. 
he SFIDDEF macro defines the structure of this 
parameter. This is an optional parameter. 


OUTPUT PARAMETERS: 
FILE_SPEC Address of a descriptor for a string that 
receives the file specification. This is an 
output parameter. 


FILE_SPEC_LENGTH Address of a word to receive the number of 
characters written into file-spec, not 


LJBSE1D_TO_NANE 


1 
1 


mn 
ae 


Convert device and file ID to 16 Sep-1984 AX-11 Bliss-32 V4.0 
Convert device and file ID to 1 “520-198 96: ¢f: 39 VMSLIB.SRC (16FLDNAM. 3 2;1 


count ing gyedine in the gage of a fixed-length 
pert ng. f the output string is truncated 


ring, 
sizew poereee’ es 


e eres st tee n the file-spec 
file-spec- bength f is set to this 
owoert ¢ Length can 
wert e used by the iT Ling pro 4p to access 
d substring of file-spec. is is 
on vest tensl output parameter, Seanad by 
reference. 


ACP_STATUS Address of .. longword that receives the status 
poeus sing rom traversing the back Links. This 
is an optional output parameter. 


The output parameters are guaranteed to be stored only if the routine 
value is true. 


OOOCOCOCCOCOOCOCOOOCOCOO rr 


FWN ("OOD ONOULE WN OOO 


rrr 


A 
-T0- 
! 
i 
i 
i 
| 
! 
i 
i 
i 
i 
i 
i 
i 
i 
i 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 


; 5 IMPLICIT INPUTS: 

Booeet id 

: 4 0 IMPLICIT, QUTPUTS: 

tes o 

; 241 ‘ COMPLETION STATUS: 

: 248 8 re SS$_NORMAL Normal successful completion 

: see 0362 LIB$_STRTRU Output string truncated (qualified success) 
: $4 0244 LIBS_INVARG Required argument omitted, or device-name longer than 
; ses Bsee 64 characters 

: $24 osee LIBS_INVFILSPE Device-name does not reference a disk 

; 252 $549 LIBSANALYZE_SDESC errors 

3; @ asee SASSIGN errors 

: 254 0251 $010 errors 

3 $2? 0536 S$DASSGN errors 

: 37 0224 SIDE EFFECTS: 

; 359 0256 NONE 

: 261 $586 


LIBSFIO_TO_NAME LIBSFID_TO_ wee = Convert device and file ID t 0 1B-se Sep-1 6: AX-11 Bliss-32 V Page 8 
rivet " LIBSFID-TO-NAME = Convert device and file ID t © 1-800 138i 96: ¢¢ :39 VMSLIB.SR ROIL i6F 1D Dhan "B92: 31 . (5) 
; 263 59 BEGIN 

: es st LOCAL 

; 28 e ACP. STATUS_VALUE: ! Value for ACP_STATUS 

; @ 6 UNSIGNED LONG, 

; 268 64 ACP_TYPE: ! ACP type attribute returned by GETDVI 
; ; o Uns] SHED LONG 

s eri £5 ATR: Q10 attribute List 

; 7 68 BLOCKVECTORC 2, ATRSS _ATROEF BYTE), 

: 27 $9 BUFFER: Buffer to construct return string 

; I i ye Tore oUF. SIZE, BYTE ] 

; 276 0 if BUF _PTR: ! Pointer to BUFFER 

; ev? 027 REF VECTORE , BYTE J, 
: 278 0274 BUF __LENGTH: ! Length of return string 

; e79 0275 UNSIGNED WORD 

; 280 0 6 INITIAL ( 0), 

; 281 027 CHANNEL : ! Channel number 

; eB 0278 UNSIGNED WORD, 

; a 8 79 DESC: ! Descriptor for various arguments 

; 284 80 VECTOREC 2, LONG), 

; «285 0281 EFN: ! Event flag number 

; 286 8 Ht UNSIGNED WORD, 

3; 287 8 FIB: 

: 88 8 84 BLOCKC FIBSC_LENGTH, BYTE ae 

; 289 85 FILE_ITM: Ite a tint, for SFILESCAN 

; 290 0286 BLOCKVECTORE 4, FSCNSS_ Lien CEN, BYTE J, 

; 291 0287 FINAL_STATUS: ! Status return 

3 36 8 88 UNSIGNED LONG, 

; 29 89 10SB: ! 1/0 status block 

: 294 0290 VECTOREC 4, WORD J; 

: 596 0992 

: 297 0 38 BUILTIN 

; 298 0294 ACTUALCOUNT, ! Return number of arguments 

; 299 95 ' "LOCate Character’ instruction 

: $4 38 NULLPARAMETER; ! Test if parameter specified 

; $08 298 LABEL 

; 0299 PROCESS; ! Block containing Q10 processing to ACP 
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Ensure that the required parameters are present. 
if ACTUALCOUNT() LSSU 3 THEN RETURN LIBS_INVARG; 


14 
Analyze the input device name descriptor and set up the local descriptor. 


BEGIN ! eet te to use nie registers 

FINAL_STATUS = LIBSANALY E_sbésc R2(. DEVICE NAME R2); 
IF FINA L Agia “THEN RETU Finnt’ STATUS; 
IF m1 eTRY LOGSC ANAMLENGTH THEN aru Tbs _INVARG; 
escto] = .R1; 

DESCL1) = “RO 

END; ! block to use output registers 

'¢ 


k Assign a channel to the device. 


FINAL STATUS = SASS lent DEVNAM = DES 
IF “NOT .FINAL_STATUS TH 


N = CHANNE 

URN .FINAL_ L tAtus: 
'+ 

- Allocate an event flag. 


F INAL_ pray = ae ryh EF (CEFN); 
IF FINAL STATUS 


MPN 2 


WANN 


BEGIN 
SDASSGN(CHAN=. CHANNEL) ; 
A age -FINAL_STATUS; 
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+- Pi = } -~+¢e +e ¢ eee ee ewe ewe ee ee ewe ee ewe ee ee teeae 
inn 79,0 f block containing processing on the mpanes channel. Leave this 
Bch 7 h FINAL STATUS containing the status to be returned to the caller. 


PROCESS: BEGIN 
ACP_STATUS_VALUE = SS$_NORMAL; 


14 
Attempt to obtain the logical volume name for the device. 


2V 
BFID 


De 
7 
' 
i 
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i Beg 
ble 


EGIN LOCAL _DEV : SITMLST_DECL( ITEMS=2 ); 
ITMLST_INIT( ITAL ST ; MeV ITM, 
COD= DVIS_LOGVOLNAM, | BUFADR= BUFFER 
uFS12= LOGs¢ NARLENGTH RETLEN= your _LENGTH ), 
( ITMCOD= DVIS$_ACPTYPE, UFADR= YPE 
UFSIZ= 4, CERS 05 


ACP_TYPE = 0; 

FINAL_STATUS = SGETDVI( CHAN=. CHANNEL EPN= -EEN, ITMLST=DEV_ITM ); 
“NOT .FINAL_ STATUS THEN LEAVE PROCESS; 

FINAL_STATUS = SOAITFRE EFN=.EFN 

1 “NOT .FINAL_STATUS THEN LEAVE PROCESS; 


1+ 
t Set the buffer pointer. 
BUF _PTR = BUFFER + .BUF_LENGTH; 


+ 
If a logical volume name was returned. 


if .BUF_LENGTH NEQ 0 
THEN 


1+ 

If there is no trailing colon on the logical volume name, add one. 
if .BUF_PTRC-1) NEQ XC':" 

THEN 


"BUF _brr 


BEGIN 
BUF _PTRLO) is 
‘BUF “LENGTH +4; 


UF 
BUF “LENGTH 
END? 


vesig-Toe 


GEAFUNLSSOVSERRA LS SOUSA ARGNASSRNIS ARGV OD 


P 
P 
Pp 
P 


Be Se Se Se Se Se Se Fe Se Se Ge Se Fe Ge Fe Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ss Se Se Se Se Fe Se SH Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Sees Seas 


Bay at at at at ot et et at et et eh thee a-ak ak ke ee ek kk tt et 


EW 
m—OO0O® 


ID_TO_NAME = Convert device and fi 
ID_TO_NAME = Convert device and fi 
14 
: 

: 


ID to 
I 


D to incsep-196e $S:e:27 — EYMsLiersReSL ter 


Fheck the ACP type code fo ensure that the device is a disk to which we can 


L 
l 


ssue the necessary ACP functions. 
if .ACP_TYPE NEQ DVISC_ACP_F11V1 
4 Arte NEQ DVISC_ACP_F11V2 


BEGIN 
FINAL STATUS = LIBS_INVFILSPE; 


LEAVE PROCESS; 

END; 
+ 
Set up the FIB for the Q10 to get file spec from the ACP. 
CHSFILL( 0, FIBSC_LENGTH, FIB ); 


! The DIRECTORY_ID poreneter was specified 
NOT NULLPARAMETER( 5 ) 


N 

bein’ the file spec for the specified directory id first. 

FIBL FIBSW_FID_NUM J] = .DIRECTORY_IDC FIDS$SW_NUM J; 

FIBL FIBSW_FID_SEQ J] = .DIRECTORY_IDC FID$W_SEQ J; 

FIBC FIBSW_FID_RVN J = .DIRECTORY_IDC FIDSW_RVN J; 

evse 

betta” get the file spec for the specified file id right away. 
FIBC FIBSW_FID_NUM J] = .FILE_IDC FIDSW_NUM J; 

FIBL FIBSW_FID_SEQ J] = .FILE_IDC FID$wW_SEQ J; 

ae FIBSW_FID_RVN J = .FILE_IDC FIDSW_RVN J; 


cho} = FIBSC_LENGTH; 
CCiJ = F1B; 


CHSFILL( 0, 2*ATRSS_ATRDEF, ATR); 
ATR : ATRS$W-SIZE } = BUF STZE -~.BUF LENGTH; 


Aat » ATRSW_TYPE = ATRSC_FILE SPEC; 


ATRL 0, ATRSL_ADDR J] = .BUF_PTR; 
FINAL_STATUS = $Q10W( FUNC=I0$_ACCESS, 
CHAN=. CHANNEL, 
10SB=10SB8, 
P1I=DESC, 
P5=ATR ); 
If -FINAL_STATUS THEN FINAL_STATUS = .10SBL0); 
ACP_STATUS_VALUE = .FINAL_STATUS; 
IF NOT [FINAL_STATUS THEN LEAVE PROCESS; 
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Skip the device portion, and append the remainder of the file spec 
! to the logical volume name. 


BUF _PTR = CHSMOVE( “FILE _SPEC $3 “FILE 1TME 0, FSCNSWOL LENGTH. J 
is FSCNSL_ADDR J +°.FILE_ITMC 0, FSCNSW_LENGTH J, 


K 4 
TO_NAME = Convert device and file ID t 19-5 e 4 AX-11 Bliss-32 V4.0-74 Page 12 
TO[NAME = Convert device and file ID to 14- i. 198 9¢: ¢¢: 39 VMSLIB. SRe LIBF IDNAM.B52;1 ’ (9) 
14 
! If a logical volume name was available, 
! then hh ag ard the char count and the device name returned by Q10 
else just discard the char count of the string returned by the dio. 
BEGIN ! Block to bind FILE_SPEC_LEN 
BIND FILE -SPEC_LEN = .BUF_PTR : UNSIGNED WORD; 
IF -BUF_LENGTH NEQ 0 
THEN 
peGin 
i Locate the device persten of the file spec returned by the QI0. 
| Q10 returns the file specification as a counted ASCII string. 
DESCLO] = .FILE_SPEC LEN; 
peschoy : FILE_SPEC_CEN 
CHSFILL( 0, 2*FSCNSS_ITEM_LEN, FILE_ITM ) 
FILE_ITMC 6, FSCNSW_TTEM_CODE J) = FSCNS _vévICe; ! zero item terminates List 
FINAL STATUS = SFILESCAN( SRCSTR = DESC, VALUELST = FILE_ITM ); 
IF “NOT .FINAL_STATUS | THEN LEAVE PROCESS; 
14 
' 
i 
le 


14 
- Discard the character count portion of the string returned by the Q10. 


BUF _PTR = CHSMOVE( .FILE_SPEC_LEN, FILE_SPEC_LEN + 2, .BUF_PTR ) 
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Set the buffer length count. 
F_LENGTH = .BUF_PTR = BUFFER; 
! Block to bind FILE_SPEC_LEN 


4 
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yon e000 IBSFIDITO“NAME = Convert device and file 1D to Ioegenet9nd $8iSec3y | Fem Te etkes Foe lta tn oSo51 Page 4d3 
4 481 + 
491 ! If the DIRECTORY_ID parameter was specified, 
4 § : ! then convert directory’ file spec to directory format 
c t ¢ , and append file spec for FILE_ID to it. 
4 5 § if NOT NULLPARAMETER( 5 ) 
8 BEGIN LOCAL PTR : REF VECTORC , BYTE J, 


CLOSE_BRACKET : UNSIGNED BYTE; 


+ 
Extract interesting pieces of the file spec currently in BUFFER. 


BEGIN 
peece sy = .BUF LENGTH; 
DESCL1) = BUFFER; 


CHSFILL( 0, 4*FSCNSS_ITEM_LEN, FILE_ITM ); 
FILE_ITMC 0, FSCNSW_ITEM_CODE ] = FSCN$_DIRECTORY; 
FILE-ITME 1, FSCNSWITEM-CODE ] = FSCNS-NAME; 

FILE_ITMC 2, FSCNSW_ITEM_CODE J = FSCNS_TYPE; ! zero item terminates List 
FINAL_STATUS = SFILESCAN( SRCSTR = DESC, VALUELST = FILE_ITM ); 
1 NOT .FINAL_STATUS THEN LEAVE PROCESS; 
1+ 


Save the close bracket character used in directory specification 


PTR = (.FILE_ITMC 0, FSCNSL_ADDR J + 
FILE_ITMC 0, FSCNSW_LENGTH J] - 1 ); 
CLOSE_BRACKET = .PTREOI; 
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IF 
! directory is a root diroctery 
P MASTER_FILE_DIRECTORY( .FILE_ a, 0, FSCNSW_LENGTH J, 
- -FILE_ITMC 0, FSCNSL_ADDR J ) 
! a null directory specification has been returned 
P NULL_DIRECTORY ( FILE 1 Te 0. FSCNSW_LENGTH J, 
— -FILE_ITML 0, FSCNSL_ADDR J ) 


Place directory filename as root directory. 


PTR = CHSMOVE( .FILE_ITMC 1, FSCNSW_LENGTH J, 
-FILE_ITMC 1, FSCNSC_ADDR }. 
-FILETITME 0, FSCNSL-ADDR }'+ 1 ) 
ELSE 


i Place directory filename into Stegctory format as sub-directory. 
' Here we assume that the filename immediately follows the clos ine 
bracket of the directory spec in the file spec returned by the ACP 


BEGIN 
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PTRCO] = XC'.': 
BTR = .FILE_ITMC 1, FSCNSL_ADDR ] + .FILE_ITMC 1, FSCNSW_LENGTH J; 


14 

Close the directory portion of the file spec with saved close bracket 
PTRCO] = .CLOSE_BRACKET; 

+ 

Set length of current buffer contents. 


BUF_PTR = .PTR + 1; 
BUF"LENGTH = .BUF_PTR = BUFFER; 


1+ 
Set up the FIB for the Q10 to get filename from the ACP. 
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CHSFILL( 0, FIBSC_LENGTH, FIB ); 

FIBC FIBSW_FID_NUM J = .FILE_IDC FIDSW_NUM J; 
FIBC FIBSWIFID-SEQ ] = .FILE-IDC FID$W7SEQ J; 
FIBC FIBSWIFIDIRVN J = :FILETIDC FIDSWIRVN 2; 


'¢ 
Q10 to get ASCII file name attribute. 


ATRE 0, ATRSW_TYPE ] = ATRSC_ASCNAME; 
(BUF 


ATRL 0, ATRSWISIZE } = CIF _SIZE - .BUF_LENGTH) LSSU ATRS$S_ASCNAME 
THEN (BUETSIZE = BUF LENGTH) 


ELSE ATRSS_A 
ATRC 0, ATRSL_ADDR J = .BUF 


DESCCO] = FIBSC_LENGTH; 
DESCC1) = FIB; 


PTR; 
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P FINAL_STATUS = $Q]0W( FUNC=I10$_ACCESS, 
P CHAN=. CHANNEL, 
Pp 10SB=10SB, 
P PI=DESC, 
PS=ATR 3 
IF -FINAL_STATUS THEN FINAL_STATUS = .IOSB(0]; 
ACP_STATUS_VALUE = .FINAL_STATUS; 
IF NOT .FINAL_STATUS THEN LEAVE PROCESS; 
'¢ 
' Scan for broth tng spaces and remove these. 
: H Q10 returns the filename with blank fill out to the specified length. 
58 BEGIN ! block to use output registers 
97 28 REGISTER RO = 0; 
98 5 LOCC( ZREF(ZC* *), ZREF(BUF_SIZE - .BUF_LENGTH), .BUF_PTR; RO ); 
599 5 BUF_LENGTH = BUF_SIZE - .RO; 
600 5 BUF"PTR = BUFFER™+ .BUF_LENGTH; 
601 3 END; ' block to use output registers 
$08 5 END; ! Processing for the DIRECTORY_ID parameter. 
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; 605 5 ae ie block a 
; ! End o ock containing processing on the opened channel. 
; 607 98 ! FINAL_STATUS contains Phe most severe status encountered during processing. 
; 608 0599 ! If anerror has been encountered 
; 609 0600 : then we will return it rather than any error status we may obtain during 
; 610 0601 } the following wrap-up. 
; 611 0602 '¢ = ¢ @ + +-+¢ ete ewe ee ee ee ee ee eo ee ee te 
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; 613 0603 + H 
; e183 be 2 ! _Deassign the channel and deallocate the event flag. ; 
; 616 one BEGIN : 
: 617 060 LOCAL STATUS_1: UNSIGNED LONG, ‘ 
: 618 0608 STATUS-2: | UNSIGNED LONG; : 
; 619 pou? STATUS_1 = SDASSGN( CHAN=.CHANNEL ); ‘ 
: 620 061 STATUS_2 = LIBSFREE_EF( EFN ); : 
; 621 0611 IF | TFINAL_STATUS” THEN FINAL_STATUS = .STATUS_1; ; 
3; 6 ¢ pels IF «FINAL_STATUS THEN FINAL-STATUS = .STATUS_2; ’ 
; ° i Belz END; : 
; 625 bei + ; 
3 ? 8 Beis a Return the ACP status code if requested. : 
; 628 0618 IF NOT NULLPARAMETER(6) : 
: 629 0619 H : 
; 6350 0620 -ACP_STATUS = .ACP_STATUS_VALUE; : 
; 631 0621 H 
; O36 06 ; + H 
; O37 Dest 7 t If we have even a partial file spec, return it. : 
; 635 0625 if -BUF_LENGTH NEQ 0 ; 
3: 636 0626 THEN 3 
; 637 0627 BEGIN REGISTER RI = 1; : 
; 638 0628 LOCAL STATUS: UNSIGNED LONG; ; 
; 639 Boe? 3 
3 640 0630 ‘+ ; 
; rok bee, _Do not return a file spec longer than the maximum RMS can handle. : 
: bn be38 if ~BUF_LENGTH GTRU NAMSC_MAXRSS : 
3 644 0634 THEN : 
3: 645 0635 4 BEGIN 3 
3 646 0636 4 BUF oLENaTe = NAMSC_MAXRSS; : 
3 647 0637 4 IF «FINAL STATUS THEN FINAL_STATUS = LIBS$_STRTRU; : 
3; 648 0638 3 END; 3 
3; 649 0639 3 3 
3; 650 0640 + : 
; 651 0641 i Copy the file specification to its destination, 3 
; $36 po a and " sereraine if truncation occurred. : 
3 654 0644 STATUS = LIBS$SCOPY_R seg ws LENGTH, BUFFER, .FILE_SPEC); $ 
3 655 0645 .FINAL_STAT FINAL_SfATUS = .STATUS: : 
3 $26 Bee LIBSANALYZE SDESC_R2(. FILE "SPEC: RT); : 
; 6 64 IF LSSU .BOF_LENG 3 
; 658 0648 3 
3; 659 0649 4 GIN : 
; 660 0650 4 BUF_LENGTH = .R1; ; 
; 661 651 4 IF -FINAL_ST TATUS THEN FINAL_STATUS = LIBS_STRTRU; : 
3 666 26 END; 3 
; 66 65 END; F 
3; 664 654 § 
3; 665 655 '¢ 3 
3 666 626 a Return the length of the file specification if requested. : 
3; 668 028 If NOT NULLPARAMETER(4) : 
; 669 65 THEN : 
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THEN 
ELSE SPINAL nSTATUS) ; 
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(.FILE_SPEC_LENGTH)<0,16> = .BUF_LENGTH; 


! End of routine 
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Return the vanilla success status unless an error has occured. 
RETURN 5 Pa a BH STATUS 
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LIBSFID_TO_NAME LIBSFID_TO_NAME = Convert device and file ID to 16-Sep-1984 02:26: AX-11 Bliss-32 V4.0-74 P 
Vbe~000 LIBSFID_TO_NAME = Convert device and file 1D to 12286871382 96:40:39 VMSLIB.SRC 18F ONAN 231 age 49 
57 59 09 9 MOVL RO, FINAL STATUS ; 
‘ E C BLBC  FINAL_STATUS, 13$ + 0505 
34 AE DO ROVE FILE_TTM+4, R4 + 0511 
5 0 AE 3¢ MOVZWL FILE IT, R5 : 512 
: FF ASG4 : 1 MOVAB. -1(R5)CR4], PTR + 051 
$6 1C MOVB (PTR), CLOSE_BRACKET + 0513 
" a 93 b0530 cmv, — 
08 00 64 gf 2D 4 CMPCS R5, (R4), #0, #8, P.AAA : 
FDCB. CGF 9 : 
F 13 C BEQL 16$ : 
02 5 8 F 15$ CMPW ORS, #2 + 0523 
if 2 BNEQ 178 : 
02 00 64 55 2D 00 ; CMPCS RS, (R4), #0, #2, P.AAB : 
FDC. = CF 0 : 
ie 3 0238 BNEQ 17% : 
01 AG 3c SOW 38 AE 28 00230 16$:  MOVC3 FILE 1TM+8, @FILE_ITM+12, 1(R4) + 0530 
56 53 DO 00244 MOVL R3, PTR ; 
B 11 00247 BRB 18$ : 0528 
66 E 30 0249 17$:  MOVB #46, (P : 0538 
56 38 «= AE «03C (00 4¢ MOVZ2WL FILE_ITM+8, PTR : 0539 
56 3c = AE s«C0 «0025 ADDL2 FILE-ITM+12, PTR ; 
56 59 90 00 54 18$:  MOVB CLOSE_BRACKET, (PTR) + 0546 
58 01 Ab 9E 00257 MOVAB 1(R6)> BUF_PTR : 0551 
50 0098 CE H 00258 MOV BUFFER + 055? 
04 AE og 50 A3 00260 SUBW3 RO, BUF_PTR, BUF_LENGTH : 
0040 8F 00 6E > 00 2¢ 99 65 movcS #0. (SPY, #6, #62, FIB : 0557 
50 08 AC vO 00 $F MOVL FILE_ID, RO : 0558 
54 AE 60 D0 00 MOVL (RO)? FIB+4 ; 
58 OA 04 Ad BO 00276 MOVW  4(ROS, FIB+8 + 0560 
EE AD 10 80 0278 MOVW #16, ATR42 : 0565 
5 04 AE 3C O027F MOVZWL BUF LENGTH, R2 : 0566 
5 FEF c 9— 00 83 MOV -27T(R2), R2 : 
50 CE 00 MNEGL Re, RO ; 
00000056 = BF 50 D1 00 88 CMPL RO. #86 ; 
03 1E 0029 BGEQU 19 ; 
50 2 CE 00294 MNEGL R2, RO : 0567 
4 11 00297 BRB 20$ ; 
50 56 BF 9A 00299 19$:  MOVZBL #86, RO > 0566 
EC AD 0 80 0290 20$: MOVW RO, ATR : 
0 AD 8 p 0 Al MOVL Buf PTR ATR+4 > 0569 
Serf $8 HE SEE ROUIBY Fig” BEE BF 
7E f af CLRL = = (SP) ; $358 
EC AD 9F 00283 PUSHAB ATR ; 
7E 7C B CLRQ ss = (SP) : 
7E D4 CLRL =. = (SP) ; 
O0A4 ce F OO2BA PUSHAB DESC ; 
E 7C 0028 CLRQ = =(SP) ; 
48 ; 9F 002C PUSHAB 1088 ; 
32 DD 002C PUSHL # ; 
7E 28 «AE 3C 002C MOVZWL CHANNEL, -(SP) ; 
7E 04 000C CLRL = ; 
000000006 g F ¢ CALLS #12, SYS$Q10W ; 
D 6 D MOVL RO, FINAL STATUS : 
4 E D BLBC = FINAL_STATUS, 21$ > 0579 
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D to SS -1984 AX-11 Bliss-32 V Page 21 
ESRI) PR ee) at CR ia BEET TCL EEE e449) 
D8 MOVZWL 10sB. FINAL_STATU : 
DC 218: MOVL NAL_STATUS, ACP STATUS_ VALUE ; 0580 
OF LBC nk gorATus. 22$ + 0581 
E MNEGL + 0589 
7 LOCC i; (BUF _P : 
E SUBW3 iF peur “CENGTH : 9590 
F MOVAB tie : 0591 
i MOV ZL BUF ior BUF _PTR : 
FC 22$:  MOVZWL CHANNEL? -(SP) + 0609 
FF ALLS #1, SYS$DASSGN : 
0 OVL RO, STATUS : 
PUSHAB  EFN + 0610 
0 CALLS #1, LIBSFREE_EF ; 
OF BLBC = FINA Le STAT US; 23$ + 0611 
1 MOVL = STATUS FINALS STATUS : 
0 1 BLBC FINAL ST thr + 0612 
1 MOVL STA TUS ne’ FINAL_ STATUS § 
0318 23$ CMPB AP) + 0618 
031 BLSSU  24$ ; 
0 TSTL 4 (AP) : 
0 BEQL 4$ 3 
0 MOVL § ACP_STATUS_VALUE, @ACP_STATUS + 0620 
0329 24$ TSTW BUFTLENGTH + 0625 
032¢ BEQL ; 
032 CMPW F_LENGTH, #255 + 0633 
0 BLEQU ; 
0 MOVZBW #255, BUF_LENGTH + 0636 
B BLBC ~—FIINA i. STATUS, 25$ + 0637 
0 : MOVL #LIBS~STRTRU. FINAL_STATUS ; 
0345 25$ MOVAB BUFFER, R + 0644 
034A MOVL FILE SPEC, R2 ; 
034 MOVZWL BUF _CENGTH, R : 
6 5 JSB LIBSSCOPY_R Dxg ; 
5 BLBC FINAL STATUS, 26$ + 0645 
0358 MOVL = STAT Tus ef IMAL STATUS ; 
O35E 26$ MOVL FILE R + 0646 
036 JSB LIB THAT YSE SDESC_R2 ; 
0 CMPZ7V @ nr BUF_LENGTH, R1 3 0647 
0 oF BLEQU 2 " ; 
0 MOVW 1, BUF_LENGTH > 0650 
0374 BLBC FINAL_STATUS, 278 > 0651 
0377 MOVL  #LIB$~ ~STRTRU, a _STATUS ; 
: 7E 27$: CMPB (AP), "#4 : 0658 
BLSSU 28$ ; 
TSTL TCAP) ; 
BEQL 283 3 
MOVW §BUF_LENGTH, gif ILE. SPEC_LENGTH > 0660 
28$ BLBC FINAL STATUS > 0665 
3 mOvL #i, RO ; 
94 298: MOVL FINAL_STATUS, RO > 0667 
0397 RET > 0669 
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LIBS TO_NAME LIBSFID 10 NAN onvert device and fil © 16-Sep-1984 02:26: AX-11 Bliss-32 V4 
vbe-0007 L1B BSF I~ <TOLNAME = fonsert device and fil 1b ¢ 18 305-1382 96:90:39 VMSLIB.SRCILIBFID 
; END ! End of module LIBSFID_TO_NAME 
; 883 879 b ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
: _LIBSCODE 932 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
Be Bren) foe Wea en EOC Sen ennai Symbols -<------ Pages Processing 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBILIB.L32;1 18619 49 0 1000 00:01.9 
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-0-74 
DNAM.B52;1 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=LISS:L IBF LDNAN/08J20B)$:LIGF IDNAM MSRC$:LIBF IDNAM/UPDATE=(ENH$:LIBF IDNAM 


920 code + 12 data bytes 
0: 1.1 


ime: e3. 
Lines/CPU Min: 1910 
gonenee/CPe-Wies 19680 
y ue pages 
Compi ation. Complete 
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